home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Graphics / Misc / Wood.0.72 / Sources / AuxFiles / objctree < prev    next >
Encoding:
Text File  |  1995-09-21  |  2.0 KB  |  105 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # Usage: objctree [options] [files]
  4.  
  5. # Configuration parameters
  6.  
  7. require "pwd.pl";
  8.  
  9. &initpwd;
  10.  
  11. $CPP = 'cc -E';
  12.  
  13. # Process switches
  14.  
  15. while ($ARGV[0] =~ /^-/) {
  16.     $_ = shift;
  17.     if (/^-D(.*)/) {
  18.         $defines .= "-D" . ($1 ? $1 : shift);
  19.     }
  20.     elsif (/^-I(.*)/) {
  21.         $includes .= "-I" . ($1 ? $1 : shift);
  22.     }
  23.     elsif (/^-o(.*)/) {
  24.         $outfile = ($1 ? $1 : shift);
  25.     }
  26.     elsif (/^-r(.*)/) {
  27.         $rootclass = ($1 ? $1 : shift);
  28.     }
  29.     else {
  30.         shift;
  31.     }
  32. }
  33.  
  34. if (-e "./sym" && -d "./sym") {
  35.     open(ALLHEADERS ,">./sym/classtree.h") || die "Can't open ./sym/classtree.h: $!\n";
  36.     $allheadersfile = "./sym/classtree.h";
  37.     foreach $file (@ARGV) {
  38.         print ALLHEADERS "#import \"../".$file."\"\n";
  39.     }
  40.     $cppcommand = "$CPP -O -g -Wall -ObjC $defines $includes $allheadersfile|";
  41. } 
  42. else {
  43.     system("mkdir /tmp/".$ENV{USER});
  44.     open(ALLHEADERS ,">/tmp/$ENV{USER}/classtree.h") || die "Can't open /tmp/$ENV{USER}/classtree.h: $!\n";
  45.     $allheadersfile = "/tmp/".$ENV{USER}."/classtree.h";
  46.     foreach $file (@ARGV) {
  47.         print ALLHEADERS "#import \"".$file."\"\n";
  48.     }
  49.     $cppcommand = "$CPP -O -g -Wall -ObjC $defines $includes -I$ENV{PWD} $allheadersfile|";
  50. }
  51. close ALLHEADERS;
  52.  
  53. open(CPP,$cppcommand) || die "Can't run cpp: $!\n";
  54.     
  55. while (<CPP>) {
  56.     next unless /^\@interface/;
  57.     ($junk,$child,$parent,$trash) = split(/[ \t\n:]+/,$_,4);
  58.     if ($parent) {
  59.         if (! $hierarchy{$parent} || ! ($hierarchy{$parent} =~ /$child/)) {
  60.                 $hierarchy{$parent} .= $child . ",";
  61.         }
  62.     }
  63. }
  64. close CPP;
  65.  
  66. if ($outfile) {
  67.     open(RESULT, ">$outfile") || die "Can't open classtree: $!\n";
  68. } else {
  69.     open(RESULT, ">classtree") || die "Can't open classtree: $!\n";
  70. }
  71.  
  72.  
  73. if ($rootclass) {
  74.     &printTree($rootclass);
  75. } else {
  76.     &printTree("Object");
  77. }
  78.  
  79. print RESULT "\n";
  80.  
  81. close RESULT;
  82.  
  83. sub printTree {
  84.     local($name) = @_;
  85.     local($child);
  86.     local(@children);
  87.     
  88.     if ($hierarchy{$name}) {
  89.         @children = split(/,/,$hierarchy{$name});
  90.         print RESULT "{", $name;
  91.         foreach $child (@children) {
  92.             print RESULT ", ";
  93.             &printTree($child);
  94.         }
  95.         print RESULT "}";
  96.     }
  97.     else {
  98.         print RESULT $name;
  99.     }
  100. }
  101.     
  102.     
  103.     
  104.  
  105.